gusucode.com > 现代通信系统——使用MATLAB（+全部程序） > 现代通信系统——使用MATLAB（+全部程序）/现代通信系统——使用MATLAB（+全部程序）/Matlab 程序/Chapter10/programs/prgs/closmskt.m

    %Closes transmitter

function closmskt(system)

ss = get(0, 'ScreenSize');
sw = ss(3);

if (nargin == 0)
  % find current system
  system = get_param(0,'CurrentSystem');
  % find Root System
  while (~isempty(get_param(system, 'parent')))
    system = get_param(system, 'parent');
  end;
  % check if  System loaded
  if (exist(system) ~= 4)
    clear system; 
  end;
end;

if (exist('system') == 0)
  disp('No Simulink model found!');
else

  if (exist(system) ~= 4)
    disp(['System ',system,' not found.'])
  else;

    close_system([system, '/Transmitter/d(t)']);
    close_system([system, '/Transmitter/a(t)']);
    close_system([system, '/Transmitter/s_c(t)']);
    close_system([system, '/Transmitter/s_s(t)']);
    close_system([system, '/Transmitter/u_c(t)']);
    close_system([system, '/Transmitter/u_s(t)']);
    close_system([system, '/Transmitter/u(t)']);
    close_system([system, '/Transmitter/phi(t)']);
    close_system([system, '/Transmitter']);

  
  end;

end;